home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / pages.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  4.5 KB  |  162 lines
  1. /* pages.rexx 1.1 (11.11.2000) */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call init
  7. call CreateApp
  8. call HandleApp
  9. /* never reached */
  10.  
  11.  
  12. init: procedure expose global.
  13.     l="rmh.library";if ~show("L",l) then;if ~AddLib(l,0,-30) then exit
  14.     if AddLibrary("rxmui.library")~=0 then exit
  15.     return
  16.  
  17.  
  18. CreateApp: procedure expose global.
  19.     app.title="Pages"
  20.     app.version="$VER: Pages 1.0 (20.7.2000)"
  21.     app.copyright="Copyright 2000 by Alfie"
  22.     app.author="alfie"
  23.     app.description="Pages-Demo"
  24.     app.base="Pages"
  25.     app.SubWindow="mwin"
  26.  
  27.      mwin.ID="MAIN"
  28.      mwin.title="Character Definition"
  29.      mwin.contents="mgroup"
  30.  
  31.       call child("mgroup","g0","group")
  32.        g0.columns=2
  33.         g0.0=label("_Name:")
  34.         g0.1=string("name","n","Frodo")
  35.         g0.2=label("_Sex:")
  36.         g0.3="sex"
  37.          sex.class="cycle"
  38.          sex.ControlChar="s"
  39.          sex.entries="Male|Female"
  40.  
  41.       call child("mgroup",VSpace(2))
  42.  
  43.       call child("mgroup","reg","register")
  44.        reg.REGISTERFRAME=1
  45.        reg.titles="Race|Class|Armor|Level"
  46.  
  47.         call child("reg","graces","group")
  48.          graces.horiz=1
  49.          graces.spacing=0
  50.           graces.0=HSpace(0)
  51.           graces.1="races"
  52.            races.class="radio"
  53.            races.entries="Human|Elf|Dwarf|Hobbit|Gnome"
  54.           graces.2=HSpace(0)
  55.  
  56.         call child("reg","gclasses","group")
  57.          gclasses.horiz=1
  58.          gclasses.spacing=0
  59.           gclasses.0=HSpace(0)
  60.           gclasses.1="classes"
  61.            classes.class="radio"
  62.            classes.entries="Warrior|Rogue|Bard|Monk|Magician|Archmage"
  63.           gclasses.2=HSpace(0)
  64.  
  65.         call child("reg","g1","group")
  66.          g1.horiz=1
  67.           g1.0=HSpace(0)
  68.           g1.1="gweapons"
  69.            gweapons.class="group"
  70.            gweapons.columns=2
  71.             gweapons.0=label("_Cloak:");  cloak.ControlChar="c"; gweapons.1=CheckMark("cloak",1)
  72.             gweapons.2=label("S_hield:"); shield.ControlChar="h"; gweapons.3=CheckMark("shield",1)
  73.             gweapons.4=label("_Gloves:"); gloves.ControlChar="g";gweapons.5=CheckMark("gloves",1)
  74.             gweapons.6=label("H_elmet:"); helmet.ControlChar="e";gweapons.7=CheckMark("helmet",1)
  75.           g1.2=HSpace(0)
  76.  
  77.         call child("reg","g2","group")
  78.          g2.columns=2
  79.           g2.0=label("_Experience:");
  80.           g2.1="experience"
  81.            experience.class="slider"
  82.            experience.ControlChar="e"
  83.            experience.min=0
  84.            experience.max=100
  85.            experience.level=3
  86.            experience.ControlChar="e"
  87.           g2.2=label("S_trength:");
  88.           g2.3="strength"
  89.            strength.class="slider"
  90.            strength.ControlChar="t"
  91.            strength.min=0
  92.            strength.max=100
  93.            strength.level=42
  94.           g2.4=label("_Dexterity:");
  95.           g2.5="dexterity"
  96.            dexterity.ControlChar="d"
  97.            dexterity.class="slider"
  98.            dexterity.min=0
  99.            dexterity.max=100
  100.            dexterity.level=24
  101.           g2.6=label("_Condition:");
  102.           g2.7="condition"
  103.            condition.class="slider"
  104.            condition.COntrolChar="c"
  105.            condition.min=0
  106.            condition.max=100
  107.            condition.level=39
  108.           g2.8=label("_Intelligence:");
  109.           g2.9="intelligence"
  110.            intelligence.class="slider"
  111.            intelligence.ControlChar="i"
  112.            intelligence.min=0
  113.            intelligence.max=100
  114.            intelligence.level=74
  115.  
  116.     res=NewObj("application","app")
  117.     if res~=0 then call err(res)
  118.  
  119.     call notify("mwin","CloseRequest",1,"app","ReturnID","quit")
  120.     call notify("c0","selected","EveryTime","b0","set","showme","Triggerval")
  121.     call notify("c1","selected","EveryTime","b1","set","showme","Triggerval")
  122.     call notify("c2","selected","EveryTime","b2","set","showme","Triggerval")
  123.     call notify("c3","selected","EveryTime","b3","set","showme","Triggerval")
  124.     call notify("c4","selected","EveryTime","b4","set","showme","Triggerval")
  125.  
  126.     call set("mwin","open",1)
  127.     call getattr("mwin","open","o")
  128.     if o=0 then do
  129.         say "can't open window"
  130.         exit
  131.     end
  132.  
  133.     return
  134.  
  135.  
  136. HandleApp: procedure expose global.
  137.     ctrl_c=2**12
  138.     do forever
  139.         call NewHandle("APP","H",ctrl_c)
  140.         if and(h.signals,ctrl_c)>0 then exit
  141.         select
  142.             when h.event="QUIT" then exit
  143.             otherwise nop
  144.         end
  145.     end
  146.     /* never reached */
  147.  
  148.  
  149.  
  150. halt:
  151. break_c:
  152.     exit
  153.  
  154.  
  155. err: procedure expose sigl RxMUIError
  156. parse arg res
  157.     msg = ProgramName()":" GetRxMUIString(res) "in line" sigl-1
  158.     if RxMUIError~="RXMUIERROR" then msg = msg "["RxMUIError"]"
  159.     say msg
  160.     exit
  161.  
  162.